怎么用free pascal编游戏答:Board:Array [0..3,0..11,1..25] Of Byte;Players,N,Nowx,Nowy,Kind,Trans,Speed:Byte;Time,Score:Word;Now:Array [0..7] Of Byte;PROCEDURE Furbish;VAR B,C:Byte;Begin For C:=24 Downto 2 Do Begin Gotoxy(1,C);For B:=1 To 10 Do If Board[0,B,C]=0 Then Write(' ...